home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / execut1r / frmdbv~1.frm < prev    next >
Text File  |  1998-11-30  |  32KB  |  1,019 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
  3. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
  4. Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
  5. Begin VB.Form frmDBViewer 
  6.    Caption         =   "Database Viewer"
  7.    ClientHeight    =   7395
  8.    ClientLeft      =   2040
  9.    ClientTop       =   900
  10.    ClientWidth     =   7155
  11.    ClipControls    =   0   'False
  12.    ControlBox      =   0   'False
  13.    Icon            =   "frmDBViewer.frx":0000
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   7395
  18.    ScaleWidth      =   7155
  19.    Begin VB.PictureBox Picture1 
  20.       Height          =   7440
  21.       Left            =   -45
  22.       ScaleHeight     =   7380
  23.       ScaleWidth      =   8415
  24.       TabIndex        =   0
  25.       Top             =   -45
  26.       Width           =   8475
  27.       Begin MSDBGrid.DBGrid DBGrid1 
  28.          Bindings        =   "frmDBViewer.frx":0442
  29.          Height          =   3030
  30.          Left            =   90
  31.          OleObjectBlob   =   "frmDBViewer.frx":0459
  32.          TabIndex        =   12
  33.          Top             =   4230
  34.          Width           =   7035
  35.       End
  36.       Begin ComctlLib.TabStrip TabStrip1 
  37.          Height          =   330
  38.          Left            =   4725
  39.          TabIndex        =   14
  40.          Top             =   315
  41.          Width           =   1755
  42.          _ExtentX        =   3096
  43.          _ExtentY        =   582
  44.          Style           =   1
  45.          TabFixedWidth   =   1764
  46.          _Version        =   327682
  47.          BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7} 
  48.             NumTabs         =   2
  49.             BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  50.                Caption         =   "Access"
  51.                Object.Tag             =   ""
  52.                ImageVarType    =   2
  53.             EndProperty
  54.             BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  55.                Caption         =   "FoxPro 2.6"
  56.                Object.Tag             =   ""
  57.                ImageVarType    =   2
  58.             EndProperty
  59.          EndProperty
  60.       End
  61.       Begin VB.CommandButton cmdPrintGrid 
  62.          Caption         =   "Print"
  63.          Height          =   285
  64.          Left            =   6210
  65.          TabIndex        =   13
  66.          ToolTipText     =   "Click here to 'Print' the data."
  67.          Top             =   5490
  68.          Visible         =   0   'False
  69.          Width           =   690
  70.       End
  71.       Begin VB.TextBox txt 
  72.          BackColor       =   &H00FFFF00&
  73.          BeginProperty Font 
  74.             Name            =   "Times New Roman"
  75.             Size            =   8.25
  76.             Charset         =   0
  77.             Weight          =   400
  78.             Underline       =   0   'False
  79.             Italic          =   0   'False
  80.             Strikethrough   =   0   'False
  81.          EndProperty
  82.          Height          =   315
  83.          Left            =   90
  84.          TabIndex        =   11
  85.          ToolTipText     =   "Search on the first field of the grid below."
  86.          Top             =   3825
  87.          Width           =   1680
  88.       End
  89.       Begin VB.Timer Timer1 
  90.          Interval        =   1500
  91.          Left            =   630
  92.          Top             =   5805
  93.       End
  94.       Begin VB.Data dbGridSource 
  95.          Caption         =   "dbGridSource"
  96.          Connect         =   "Access"
  97.          DatabaseName    =   ""
  98.          DefaultCursorType=   0  'DefaultCursor
  99.          DefaultType     =   2  'UseODBC
  100.          Exclusive       =   0   'False
  101.          Height          =   345
  102.          Left            =   1350
  103.          Options         =   0
  104.          ReadOnly        =   0   'False
  105.          RecordsetType   =   1  'Dynaset
  106.          RecordSource    =   ""
  107.          Top             =   5715
  108.          Visible         =   0   'False
  109.          Width           =   1140
  110.       End
  111.       Begin VB.CommandButton cmdRefresh 
  112.          Caption         =   "&Refresh"
  113.          Height          =   285
  114.          Left            =   4905
  115.          TabIndex        =   9
  116.          ToolTipText     =   "Refresh the Tree View."
  117.          Top             =   3600
  118.          Width           =   690
  119.       End
  120.       Begin VB.CommandButton cmdPrint 
  121.          Caption         =   "&Print"
  122.          Enabled         =   0   'False
  123.          Height          =   285
  124.          Left            =   5625
  125.          TabIndex        =   8
  126.          ToolTipText     =   "Click here to print Table Structure."
  127.          Top             =   3600
  128.          Width           =   690
  129.       End
  130.       Begin VB.CommandButton cmdClose 
  131.          Caption         =   "&Close"
  132.          Height          =   285
  133.          Left            =   6345
  134.          TabIndex        =   7
  135.          ToolTipText     =   "Click here to 'Close' the program."
  136.          Top             =   3600
  137.          Width           =   690
  138.       End
  139.       Begin ComctlLib.ProgressBar PBar 
  140.          Height          =   195
  141.          Index           =   0
  142.          Left            =   90
  143.          TabIndex        =   6
  144.          Top             =   3240
  145.          Visible         =   0   'False
  146.          Width           =   6945
  147.          _ExtentX        =   12250
  148.          _ExtentY        =   344
  149.          _Version        =   327682
  150.          Appearance      =   1
  151.       End
  152.       Begin VB.CommandButton cmd 
  153.          Caption         =   "..."
  154.          BeginProperty Font 
  155.             Name            =   "Times New Roman"
  156.             Size            =   12
  157.             Charset         =   0
  158.             Weight          =   700
  159.             Underline       =   0   'False
  160.             Italic          =   -1  'True
  161.             Strikethrough   =   0   'False
  162.          EndProperty
  163.          Height          =   285
  164.          Left            =   3960
  165.          TabIndex        =   3
  166.          ToolTipText     =   "Click here to select a database."
  167.          Top             =   360
  168.          Width           =   330
  169.       End
  170.       Begin VB.TextBox txtPath 
  171.          BackColor       =   &H00FFFF00&
  172.          BeginProperty Font 
  173.             Name            =   "Times New Roman"
  174.             Size            =   8.25
  175.             Charset         =   0
  176.             Weight          =   400
  177.             Underline       =   0   'False
  178.             Italic          =   0   'False
  179.             Strikethrough   =   0   'False
  180.          EndProperty
  181.          Height          =   285
  182.          Left            =   135
  183.          TabIndex        =   2
  184.          ToolTipText     =   "Type in a database name with full path. Then click the 'Refresh' button."
  185.          Top             =   360
  186.          Width           =   3840
  187.       End
  188.       Begin ComctlLib.StatusBar StatusBar1 
  189.          Height          =   285
  190.          Left            =   90
  191.          TabIndex        =   4
  192.          Top             =   765
  193.          Width           =   6915
  194.          _ExtentX        =   12197
  195.          _ExtentY        =   503
  196.          SimpleText      =   ""
  197.          _Version        =   327682
  198.          BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
  199.             NumPanels       =   3
  200.             BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  201.                Object.Width           =   7056
  202.                MinWidth        =   7056
  203.                Text            =   "                      Tables / Fields"
  204.                TextSave        =   "                      Tables / Fields"
  205.                Object.Tag             =   ""
  206.             EndProperty
  207.             BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  208.                Alignment       =   1
  209.                Text            =   "Field Type"
  210.                TextSave        =   "Field Type"
  211.                Object.Tag             =   ""
  212.             EndProperty
  213.             BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  214.                Alignment       =   1
  215.                Text            =   "Field Size"
  216.                TextSave